*********************************************************************************
* Online Appendix
*********************************************************************************


***** I. Balance Check


**** Table A.2. Balance Check in the Survey on Government Officials


insheet using "elite.csv"

sum female age income edu ideology
tabstat female age income edu ideology,by(treat)

ttest female if treat==0|treat==1, by(treat)
ttest female if treat==0|treat==2, by(treat)
ttest female if treat==0|treat==3, by(treat)
ttest female if treat==1|treat==2, by(treat)
ttest female if treat==1|treat==3, by(treat)
ttest female if treat==2|treat==3, by(treat)

ttest income if treat==0|treat==1, by(treat)
ttest income if treat==0|treat==2, by(treat)
ttest income if treat==0|treat==3, by(treat)
ttest income if treat==1|treat==2, by(treat)
ttest income if treat==1|treat==3, by(treat)
ttest income if treat==2|treat==3, by(treat)


ttest edu if treat==0|treat==1, by(treat)
ttest edu if treat==0|treat==2, by(treat)
ttest edu if treat==0|treat==3, by(treat)
ttest edu if treat==1|treat==2, by(treat)
ttest edu if treat==1|treat==3, by(treat)
ttest edu if treat==2|treat==3, by(treat)


ttest ideology if treat==0|treat==1, by(treat)
ttest ideology if treat==0|treat==2, by(treat)
ttest ideology if treat==0|treat==3, by(treat)
ttest ideology if treat==1|treat==2, by(treat)
ttest ideology if treat==1|treat==3, by(treat)
ttest ideology if treat==2|treat==3, by(treat)


mlogit treat female income edu ideology, base(0) nolog 
  ** I omitted age, because all participants have the same value on this variable.  

 **************************************


**** Table A.3 Balance Check in the Public Survey--20s and 30s 


clear
insheet using "public.csv"

sum female age income edu ideology

sum female age income edu ideology if age==2|age==3
tabstat female age income edu ideology if age==2|age==3,by(treat)

preserve 

keep if age==2|age==3

ttest female if treat==0|treat==1, by(treat)
ttest female if treat==0|treat==2, by(treat)
ttest female if treat==0|treat==3, by(treat)
ttest female if treat==1|treat==2, by(treat)
ttest female if treat==1|treat==3, by(treat)
ttest female if treat==2|treat==3, by(treat)


ttest age if treat==0|treat==1, by(treat)
ttest age if treat==0|treat==2, by(treat)
ttest age if treat==0|treat==3, by(treat)
ttest age if treat==1|treat==2, by(treat)
ttest age if treat==1|treat==3, by(treat)
ttest age if treat==2|treat==3, by(treat)

ttest income if treat==0|treat==1, by(treat)
ttest income if treat==0|treat==2, by(treat)
ttest income if treat==0|treat==3, by(treat)
ttest income if treat==1|treat==2, by(treat)
ttest income if treat==1|treat==3, by(treat)
ttest income if treat==2|treat==3, by(treat)


ttest edu if treat==0|treat==1, by(treat)
ttest edu if treat==0|treat==2, by(treat)
ttest edu if treat==0|treat==3, by(treat)
ttest edu if treat==1|treat==2, by(treat)
ttest edu if treat==1|treat==3, by(treat)
ttest edu if treat==2|treat==3, by(treat)


ttest ideology if treat==0|treat==1, by(treat)
ttest ideology if treat==0|treat==2, by(treat)
ttest ideology if treat==0|treat==3, by(treat)
ttest ideology if treat==1|treat==2, by(treat)
ttest ideology if treat==1|treat==3, by(treat)
ttest ideology if treat==2|treat==3, by(treat)

restore

mlogit treat female  age income edu ideology if age==2|age==3, base(0) nolog 

*** Table A.4 Balance Check in Public Survey--40s and 50s 

sum female age income edu ideology if age==4|age==4
tabstat female age income edu ideology if age==4|age==5,by(treat)

preserve 

keep if age==4|age==5

ttest female if treat==0|treat==1, by(treat)
ttest female if treat==0|treat==2, by(treat)
ttest female if treat==0|treat==3, by(treat)
ttest female if treat==1|treat==2, by(treat)
ttest female if treat==1|treat==3, by(treat)
ttest female if treat==2|treat==3, by(treat)



ttest age if treat==0|treat==1, by(treat)
ttest age if treat==0|treat==2, by(treat)
ttest age if treat==0|treat==3, by(treat)
ttest age if treat==1|treat==2, by(treat)
ttest age if treat==1|treat==3, by(treat)
ttest age if treat==2|treat==3, by(treat)

ttest income if treat==0|treat==1, by(treat)
ttest income if treat==0|treat==2, by(treat)
ttest income if treat==0|treat==3, by(treat)
ttest income if treat==1|treat==2, by(treat)
ttest income if treat==1|treat==3, by(treat)
ttest income if treat==2|treat==3, by(treat)


ttest edu if treat==0|treat==1, by(treat)
ttest edu if treat==0|treat==2, by(treat)
ttest edu if treat==0|treat==3, by(treat)
ttest edu if treat==1|treat==2, by(treat)
ttest edu if treat==1|treat==3, by(treat)
ttest edu if treat==2|treat==3, by(treat)


ttest ideology if treat==0|treat==1, by(treat)
ttest ideology if treat==0|treat==2, by(treat)
ttest ideology if treat==0|treat==3, by(treat)
ttest ideology if treat==1|treat==2, by(treat)
ttest ideology if treat==1|treat==3, by(treat)
ttest ideology if treat==2|treat==3, by(treat)

restore

mlogit treat female  age income edu ideology if age==4|age==5, base(0) nolog 

*******The Probit Analysis Results with Control Variables 

****** Table A.5 The Effect of Non-Proliferation Tools on Nuclear Forbearance (Survey on Government Officials)

clear 
insheet using "elite.csv"


gen cons=0
replace cons=1 if ideology==4|ideology==5
gen lib=0
replace lib=1 if ideology==1|ideology==2
gen med=0
replace med=1 if ideology==3

**female and age dropped from the model because of collinearity
eststo clear
eststo: probit support declaration deployment threat edu income cons lib, vce(ro) 
esttab, se star(* 0.10 ** 0.05 *** 0.01)
eststo clear




****** Table A.6 The Relative Effectivness of Non-Proliferation tools   (Survey on Government Officials)


eststo clear
preserve
drop if control==1
 eststo: probit support deployment threat edu income cons lib , vce(ro)
 eststo: probit credibility deployment threat edu income cons lib, vce(ro)
 
esttab, se star(* 0.10 ** 0.05 *** 0.01)
restore


******* Table A.7 The Effect of Non-Proliferation Tools on Nuclear Forbearance (Public Survey)


**generate conservative/liberal variables 

clear 
insheet using "public.csv"


gen cons=0
  replace cons=1 if ideology==1
  gen lib=0
  replace lib=1 if ideology==2|ideology==3|ideology==4
  gen med=0
  replace med=1 if ideology==5


eststo clear
eststo: probit support declaration deployment threat female  age income edu  cons lib, vce(ro)
eststo: probit support declaration deployment threat female  age income edu  cons lib if age==2|age==3 , vce(ro)
eststo: probit support declaration deployment threat female  age income edu  cons lib if age==4|age==5 , vce(ro)
esttab, se star(* 0.10 ** 0.05 *** 0.01)
eststo clear
 
  

 ********** Table A.8 The Relative Effectiveness of Non-Proliferation Tools in the Public Survey 

eststo clear
preserve
drop if control==1
 eststo: probit support deployment threat female  age income edu cons lib , vce(ro)
 eststo: probit credibility deployment threat female  age income edu cons lib, vce(ro)
 eststo: probit support deployment threat female  age income edu cons lib if age==2|age==3 , vce(ro)
 eststo: probit credibility deployment threat female  age income edu cons lib if age==2|age==3 , vce(ro)
 eststo: probit support deployment threat female  age income edu cons lib if age==4|age==5 , vce(ro)
 eststo: probit credibility deployment threat female  age income edu cons lib if age==4|age==5 , vce(ro)
 
esttab, se star(* 0.10 ** 0.05 *** 0.01)
restore

